/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Obx / Mod / Tickers

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 54 69 63 6b 65 72 | 73 00 00 00 00 00 00 00 |..Ticker|s.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 14 44 00 | 00 01 3e ad 92 a3 aa ad |......D.|..>.....|
|00000060| a0 4e 69 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Ni.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0d 7d 00 00 |........|.....}..|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 c1 |sc......|........|
|00000100| 13 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 0f 13 |Desc....|........|
|00000160| 00 00 09 00 00 00 07 13 | 00 00 00 00 00 00 00 82 |........|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 b1 12 00 00 |........|........|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 b3 10 00 00 |sc......|........|
|000001f0| 0f 00 00 00 ab 10 00 00 | 00 00 00 00 00 00 52 01 |........|......R.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2c 00 00 00 00 00 00 00 |........|,.......|
|00000230| 1f 00 00 00 00 00 00 00 | 00 01 00 00 00 00 47 65 |........|......Ge|
|00000240| 6e 65 76 61 00 7c be 01 | 00 00 00 00 00 90 01 00 |neva.|..|........|
|00000250| 00 00 00 72 02 00 00 01 | 82 f2 0d 00 00 00 00 00 |...r....|........|
|00000260| 00 00 31 00 00 00 00 00 | 00 00 1f 00 00 00 00 00 |..1.....|........|
|00000270| 00 00 00 01 00 00 00 00 | 47 65 6e 65 76 61 00 7c |........|Geneva.||
|00000280| be 01 00 00 00 00 00 bc | 02 00 00 00 00 06 00 00 |........|........|
|00000290| 00 00 e2 00 00 00 02 82 | f2 0d 00 00 00 00 00 00 |........|........|
|000002a0| 00 6d 00 00 00 00 00 00 | 00 1f 00 00 00 00 00 00 |.m......|........|
|000002b0| 00 00 01 00 00 00 00 47 | 65 6e 65 76 61 00 7c be |.......G|eneva.|.|
|000002c0| 01 00 01 00 00 00 90 01 | 00 00 00 00 02 00 00 00 |........|........|
|000002d0| 00 31 00 00 00 02 0b 00 | 00 00 00 b4 07 00 00 02 |.1......|........|
|000002e0| 26 00 00 00 00 db 00 00 | 00 02 38 00 00 00 00 ae |&.......|..8.....|
|000002f0| 00 00 00 02 1a 00 00 00 | 00 14 01 00 00 02 0f 00 |........|........|
|00000300| 00 00 00 0c 00 00 00 01 | 07 00 00 00 00 a3 00 00 |........|........|
|00000310| 00 03 82 f2 0d 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 22 00 00 00 | 00 00 00 00 00 01 00 00 |...."...|........|
|00000330| 00 00 48 65 6c 76 65 74 | 69 63 61 00 7c be 01 00 |..Helvet|ica.|...|
|00000340| 00 00 00 00 90 01 00 00 | 00 00 18 00 00 00 00 11 |........|........|
|00000350| 00 00 00 ff 4d 4f 44 55 | 4c 45 20 4f 62 78 54 69 |....MODU|LE ObxTi|
|00000360| 63 6b 65 72 73 3b 0d 0d | 09 49 4d 50 4f 52 54 20 |ckers;..|.IMPORT |
|00000370| 56 69 65 77 73 2c 20 50 | 6f 72 74 73 2c 20 50 72 |Views, P|orts, Pr|
|00000380| 6f 70 65 72 74 69 65 73 | 2c 20 53 65 72 76 69 63 |operties|, Servic|
|00000390| 65 73 2c 20 53 74 6f 72 | 65 73 2c 20 4d 6f 64 65 |es, Stor|es, Mode|
|000003a0| 6c 73 3b 0d 0d 09 43 4f | 4e 53 54 20 76 65 72 73 |ls;...CO|NST vers|
|000003b0| 69 6f 6e 20 3d 20 30 3b | 0d 0d 09 54 59 50 45 0d |ion = 0;|...TYPE.|
|000003c0| 09 09 54 69 63 6b 73 20 | 3d 20 50 4f 49 4e 54 45 |..Ticks |= POINTE|
|000003d0| 52 20 54 4f 20 41 52 52 | 41 59 20 4f 46 20 49 4e |R TO ARR|AY OF IN|
|000003e0| 54 45 47 45 52 3b 0d 0d | 09 09 56 69 65 77 20 3d |TEGER;..|..View =|
|000003f0| 20 50 4f 49 4e 54 45 52 | 20 54 4f 20 52 45 43 4f | POINTER| TO RECO|
|00000400| 52 44 20 28 56 69 65 77 | 73 2e 56 69 65 77 44 65 |RD (View|s.ViewDe|
|00000410| 73 63 29 0d 09 09 09 74 | 69 63 6b 73 3a 20 54 69 |sc)....t|icks: Ti|
|00000420| 63 6b 73 3b 0d 09 09 09 | 6c 61 73 74 3a 20 49 4e |cks;....|last: IN|
|00000430| 54 45 47 45 52 3b 0d 09 | 09 09 6f 66 66 73 65 74 |TEGER;..|..offset|
|00000440| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 09 45 4e 44 |: INTEGE|R;...END|
|00000450| 3b 0d 0d 09 09 41 63 74 | 69 6f 6e 20 3d 20 50 4f |;....Act|ion = PO|
|00000460| 49 4e 54 45 52 20 54 4f | 20 52 45 43 4f 52 44 20 |INTER TO| RECORD |
|00000470| 28 53 65 72 76 69 63 65 | 73 2e 41 63 74 69 6f 6e |(Service|s.Action|
|00000480| 44 65 73 63 29 20 45 4e | 44 3b 0d 0d 09 09 4d 73 |Desc) EN|D;....Ms|
|00000490| 67 20 3d 20 52 45 43 4f | 52 44 20 28 4d 6f 64 65 |g = RECO|RD (Mode|
|000004a0| 6c 73 2e 4d 65 73 73 61 | 67 65 29 20 0d 09 09 09 |ls.Messa|ge) ....|
|000004b0| 63 6f 6e 73 75 6d 65 64 | 3a 20 42 4f 4f 4c 45 41 |consumed|: BOOLEA|
|000004c0| 4e 0d 09 09 45 4e 44 3b | 0d 0d 09 56 41 52 0d 09 |N...END;|...VAR..|
|000004d0| 09 61 63 74 69 6f 6e 3a | 20 41 63 74 69 6f 6e 3b |.action:| Action;|
|000004e0| 0d 09 09 61 63 74 69 6f | 6e 49 73 41 63 74 69 76 |...actio|nIsActiv|
|000004f0| 65 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 09 09 73 65 |e: BOOLE|AN;...se|
|00000500| 65 64 3a 20 4c 4f 4e 47 | 49 4e 54 3b 0d 0d 09 50 |ed: LONG|INT;...P|
|00000510| 52 4f 43 45 44 55 52 45 | 20 55 6e 69 52 61 6e 64 |ROCEDURE| UniRand|
|00000520| 20 28 29 3a 20 52 45 41 | 4c 3b 0d 09 09 43 4f 4e | (): REA|L;...CON|
|00000530| 53 54 20 61 20 3d 20 31 | 36 38 30 37 3b 20 6d 20 |ST a = 1|6807; m |
|00000540| 3d 20 32 31 34 37 34 38 | 33 36 34 37 3b 20 71 20 |= 214748|3647; q |
|00000550| 3d 20 6d 20 44 49 56 20 | 61 3b 20 72 20 3d 20 6d |= m DIV |a; r = m|
|00000560| 20 4d 4f 44 20 61 3b 0d | 09 42 45 47 49 4e 0d 09 | MOD a;.|.BEGIN..|
|00000570| 09 73 65 65 64 20 3a 3d | 20 61 2a 28 73 65 65 64 |.seed :=| a*(seed|
|00000580| 20 4d 4f 44 20 71 29 20 | 2d 20 72 2a 28 73 65 65 | MOD q) |- r*(see|
|00000590| 64 20 44 49 56 20 71 29 | 3b 0d 09 09 49 46 20 73 |d DIV q)|;...IF s|
|000005a0| 65 65 64 20 3c 3d 20 30 | 20 54 48 45 4e 20 73 65 |eed <= 0| THEN se|
|000005b0| 65 64 20 3a 3d 20 73 65 | 65 64 20 2b 20 6d 20 45 |ed := se|ed + m E|
|000005c0| 4e 44 3b 0d 09 09 52 45 | 54 55 52 4e 20 73 65 65 |ND;...RE|TURN see|
|000005d0| 64 20 2a 20 28 31 2e 30 | 2f 6d 29 0d 09 45 4e 44 |d * (1.0|/m)..END|
|000005e0| 20 55 6e 69 52 61 6e 64 | 3b 0d 0d 09 50 52 4f 43 | UniRand|;...PROC|
|000005f0| 45 44 55 52 45 20 28 61 | 3a 20 41 63 74 69 6f 6e |EDURE (a|: Action|
|00000600| 29 20 44 6f 3b 0d 09 09 | 56 41 52 20 6d 73 67 3a |) Do;...|VAR msg:|
|00000610| 20 4d 73 67 3b 0d 09 42 | 45 47 49 4e 0d 09 09 6d | Msg;..B|EGIN...m|
|00000620| 73 67 2e 63 6f 6e 73 75 | 6d 65 64 20 3a 3d 20 46 |sg.consu|med := F|
|00000630| 41 4c 53 45 3b 0d 09 09 | 56 69 65 77 73 2e 4f 6d |ALSE;...|Views.Om|
|00000640| 6e 69 63 61 73 74 28 6d | 73 67 29 3b 0d 09 09 49 |nicast(m|sg);...I|
|00000650| 46 20 6d 73 67 2e 63 6f | 6e 73 75 6d 65 64 20 54 |F msg.co|nsumed T|
|00000660| 48 45 4e 0d 09 09 09 53 | 65 72 76 69 63 65 73 2e |HEN....S|ervices.|
|00000670| 44 6f 4c 61 74 65 72 28 | 61 63 74 69 6f 6e 2c 20 |DoLater(|action, |
|00000680| 53 65 72 76 69 63 65 73 | 2e 54 69 63 6b 73 28 29 |Services|.Ticks()|
|00000690| 20 2b 20 53 65 72 76 69 | 63 65 73 2e 72 65 73 6f | + Servi|ces.reso|
|000006a0| 6c 75 74 69 6f 6e 20 44 | 49 56 20 35 29 0d 09 09 |lution D|IV 5)...|
|000006b0| 45 4c 53 45 0d 09 09 09 | 61 63 74 69 6f 6e 49 73 |ELSE....|actionIs|
|000006c0| 41 63 74 69 76 65 20 3a | 3d 20 46 41 4c 53 45 0d |Active :|= FALSE.|
|000006d0| 09 09 45 4e 44 0d 09 45 | 4e 44 20 44 6f 3b 0d 0d |..END..E|ND Do;..|
|000006e0| 09 28 2a 20 76 69 65 77 | 20 2a 29 0d 0d 09 50 52 |.(* view| *)...PR|
|000006f0| 4f 43 45 44 55 52 45 20 | 28 76 3a 20 56 69 65 77 |OCEDURE |(v: View|
|00000700| 29 20 45 78 74 65 72 6e | 61 6c 69 7a 65 20 28 56 |) Extern|alize (V|
|00000710| 41 52 20 77 72 3a 20 53 | 74 6f 72 65 73 2e 57 72 |AR wr: S|tores.Wr|
|00000720| 69 74 65 72 29 3b 0d 09 | 09 56 41 52 20 69 2c 20 |iter);..|.VAR i, |
|00000730| 6c 65 6e 3a 20 4c 4f 4e | 47 49 4e 54 3b 0d 09 42 |len: LON|GINT;..B|
|00000740| 45 47 49 4e 0d 09 09 76 | 2e 45 78 74 65 72 6e 61 |EGIN...v|.Externa|
|00000750| 6c 69 7a 65 5e 28 77 72 | 29 3b 0d 09 09 77 72 2e |lize^(wr|);...wr.|
|00000760| 57 72 69 74 65 56 65 72 | 73 69 6f 6e 28 76 65 72 |WriteVer|sion(ver|
|00000770| 73 69 6f 6e 29 3b 0d 09 | 09 77 72 2e 57 72 69 74 |sion);..|.wr.Writ|
|00000780| 65 49 6e 74 28 76 2e 6f | 66 66 73 65 74 29 3b 0d |eInt(v.o|ffset);.|
|00000790| 09 09 77 72 2e 57 72 69 | 74 65 49 6e 74 28 76 2e |..wr.Wri|teInt(v.|
|000007a0| 6c 61 73 74 29 3b 0d 09 | 09 6c 65 6e 20 3a 3d 20 |last);..|.len := |
|000007b0| 4c 45 4e 28 76 2e 74 69 | 63 6b 73 5e 29 3b 20 77 |LEN(v.ti|cks^); w|
|000007c0| 72 2e 57 72 69 74 65 4c | 49 6e 74 28 6c 65 6e 29 |r.WriteL|Int(len)|
|000007d0| 3b 0d 09 09 46 4f 52 20 | 69 20 3a 3d 20 30 20 54 |;...FOR |i := 0 T|
|000007e0| 4f 20 6c 65 6e 20 2d 20 | 31 20 44 4f 20 77 72 2e |O len - |1 DO wr.|
|000007f0| 57 72 69 74 65 49 6e 74 | 28 76 2e 74 69 63 6b 73 |WriteInt|(v.ticks|
|00000800| 5b 69 5d 29 20 45 4e 44 | 0d 09 45 4e 44 20 45 78 |[i]) END|..END Ex|
|00000810| 74 65 72 6e 61 6c 69 7a | 65 3b 0d 0d 09 50 52 4f |ternaliz|e;...PRO|
|00000820| 43 45 44 55 52 45 20 28 | 76 3a 20 56 69 65 77 29 |CEDURE (|v: View)|
|00000830| 20 49 6e 74 65 72 6e 61 | 6c 69 7a 65 20 28 56 41 | Interna|lize (VA|
|00000840| 52 20 72 64 3a 20 53 74 | 6f 72 65 73 2e 52 65 61 |R rd: St|ores.Rea|
|00000850| 64 65 72 29 3b 0d 09 09 | 56 41 52 20 76 65 72 3a |der);...|VAR ver:|
|00000860| 20 53 48 4f 52 54 49 4e | 54 3b 20 69 2c 20 6c 65 | SHORTIN|T; i, le|
|00000870| 6e 3a 20 4c 4f 4e 47 49 | 4e 54 3b 0d 09 42 45 47 |n: LONGI|NT;..BEG|
|00000880| 49 4e 0d 09 09 76 2e 49 | 6e 74 65 72 6e 61 6c 69 |IN...v.I|nternali|
|00000890| 7a 65 5e 28 72 64 29 3b | 0d 09 09 49 46 20 7e 72 |ze^(rd);|...IF ~r|
|000008a0| 64 2e 63 61 6e 63 65 6c | 6c 65 64 20 54 48 45 4e |d.cancel|led THEN|
|000008b0| 0d 09 09 09 72 64 2e 52 | 65 61 64 56 65 72 73 69 |....rd.R|eadVersi|
|000008c0| 6f 6e 28 76 65 72 73 69 | 6f 6e 2c 20 76 65 72 73 |on(versi|on, vers|
|000008d0| 69 6f 6e 2c 20 76 65 72 | 29 3b 0d 09 09 09 49 46 |ion, ver|);....IF|
|000008e0| 20 7e 72 64 2e 63 61 6e | 63 65 6c 6c 65 64 20 54 | ~rd.can|celled T|
|000008f0| 48 45 4e 0d 09 09 09 09 | 72 64 2e 52 65 61 64 49 |HEN.....|rd.ReadI|
|00000900| 6e 74 28 76 2e 6f 66 66 | 73 65 74 29 3b 0d 09 09 |nt(v.off|set);...|
|00000910| 09 09 72 64 2e 52 65 61 | 64 49 6e 74 28 76 2e 6c |..rd.Rea|dInt(v.l|
|00000920| 61 73 74 29 3b 0d 09 09 | 09 09 72 64 2e 52 65 61 |ast);...|..rd.Rea|
|00000930| 64 4c 49 6e 74 28 6c 65 | 6e 29 3b 20 4e 45 57 28 |dLInt(le|n); NEW(|
|00000940| 76 2e 74 69 63 6b 73 2c | 20 6c 65 6e 29 3b 0d 09 |v.ticks,| len);..|
|00000950| 09 09 09 46 4f 52 20 69 | 20 3a 3d 20 30 20 54 4f |...FOR i| := 0 TO|
|00000960| 20 6c 65 6e 2d 31 20 44 | 4f 20 72 64 2e 52 65 61 | len-1 D|O rd.Rea|
|00000970| 64 49 6e 74 28 76 2e 74 | 69 63 6b 73 5b 69 5d 29 |dInt(v.t|icks[i])|
|00000980| 20 45 4e 44 0d 09 09 09 | 45 4e 44 0d 09 09 45 4e | END....|END...EN|
|00000990| 44 0d 09 45 4e 44 20 49 | 6e 74 65 72 6e 61 6c 69 |D..END I|nternali|
|000009a0| 7a 65 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |ze;...PR|OCEDURE |
|000009b0| 28 76 3a 20 56 69 65 77 | 29 20 43 6f 70 79 46 72 |(v: View|) CopyFr|
|000009c0| 6f 6d 20 28 73 6f 75 72 | 63 65 3a 20 56 69 65 77 |om (sour|ce: View|
|000009d0| 73 2e 56 69 65 77 29 3b | 0d 09 09 56 41 52 20 69 |s.View);|...VAR i|
|000009e0| 2c 20 6c 65 6e 3a 20 4c | 4f 4e 47 49 4e 54 3b 0d |, len: L|ONGINT;.|
|000009f0| 09 42 45 47 49 4e 0d 09 | 09 76 2e 43 6f 70 79 46 |.BEGIN..|.v.CopyF|
|00000a00| 72 6f 6d 5e 28 73 6f 75 | 72 63 65 29 3b 0d 09 09 |rom^(sou|rce);...|
|00000a10| 57 49 54 48 20 73 6f 75 | 72 63 65 3a 20 56 69 65 |WITH sou|rce: Vie|
|00000a20| 77 20 44 4f 0d 09 09 09 | 76 2e 6f 66 66 73 65 74 |w DO....|v.offset|
|00000a30| 20 3a 3d 20 73 6f 75 72 | 63 65 2e 6f 66 66 73 65 | := sour|ce.offse|
|00000a40| 74 3b 0d 09 09 09 76 2e | 6c 61 73 74 20 3a 3d 20 |t;....v.|last := |
|00000a50| 73 6f 75 72 63 65 2e 6c | 61 73 74 3b 0d 09 09 09 |source.l|ast;....|
|00000a60| 6c 65 6e 20 3a 3d 20 4c | 45 4e 28 73 6f 75 72 63 |len := L|EN(sourc|
|00000a70| 65 2e 74 69 63 6b 73 5e | 29 3b 0d 09 09 09 4e 45 |e.ticks^|);....NE|
|00000a80| 57 28 76 2e 74 69 63 6b | 73 2c 20 6c 65 6e 29 3b |W(v.tick|s, len);|
|00000a90| 0d 09 09 09 46 4f 52 20 | 69 20 3a 3d 20 30 20 54 |....FOR |i := 0 T|
|00000aa0| 4f 20 6c 65 6e 20 2d 20 | 31 20 44 4f 20 76 2e 74 |O len - |1 DO v.t|
|00000ab0| 69 63 6b 73 5b 69 5d 20 | 3a 3d 20 73 6f 75 72 63 |icks[i] |:= sourc|
|00000ac0| 65 2e 74 69 63 6b 73 5b | 69 5d 20 45 4e 44 0d 09 |e.ticks[|i] END..|
|00000ad0| 09 45 4e 44 0d 09 45 4e | 44 20 43 6f 70 79 46 72 |.END..EN|D CopyFr|
|00000ae0| 6f 6d 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |om;...PR|OCEDURE |
|00000af0| 28 76 3a 20 56 69 65 77 | 29 20 48 61 6e 64 6c 65 |(v: View|) Handle|
|00000b00| 50 72 6f 70 4d 73 67 20 | 28 56 41 52 20 6d 73 67 |PropMsg |(VAR msg|
|00000b10| 3a 20 50 72 6f 70 65 72 | 74 69 65 73 2e 4d 65 73 |: Proper|ties.Mes|
|00000b20| 73 61 67 65 29 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |sage);..|BEGIN...|
|00000b30| 57 49 54 48 20 6d 73 67 | 3a 20 50 72 6f 70 65 72 |WITH msg|: Proper|
|00000b40| 74 69 65 73 2e 53 69 7a | 65 50 72 65 66 20 44 4f |ties.Siz|ePref DO|
|00000b50| 0d 09 09 09 49 46 20 28 | 6d 73 67 2e 77 20 3d 20 |....IF (|msg.w = |
|00000b60| 56 69 65 77 73 2e 75 6e | 64 65 66 69 6e 65 64 29 |Views.un|defined)|
|00000b70| 20 4f 52 20 28 6d 73 67 | 2e 68 20 3d 20 56 69 65 | OR (msg|.h = Vie|
|00000b80| 77 73 2e 75 6e 64 65 66 | 69 6e 65 64 29 20 54 48 |ws.undef|ined) TH|
|00000b90| 45 4e 0d 09 09 09 09 6d | 73 67 2e 77 20 3a 3d 20 |EN.....m|sg.w := |
|00000ba0| 35 30 20 2a 20 50 6f 72 | 74 73 2e 6d 6d 3b 20 6d |50 * Por|ts.mm; m|
|00000bb0| 73 67 2e 68 20 3a 3d 20 | 31 30 20 2a 20 50 6f 72 |sg.h := |10 * Por|
|00000bc0| 74 73 2e 6d 6d 0d 09 09 | 09 45 4e 44 0d 09 09 45 |ts.mm...|.END...E|
|00000bd0| 4c 53 45 0d 09 09 45 4e | 44 0d 09 45 4e 44 20 48 |LSE...EN|D..END H|
|00000be0| 61 6e 64 6c 65 50 72 6f | 70 4d 73 67 3b 0d 0d 09 |andlePro|pMsg;...|
|00000bf0| 50 52 4f 43 45 44 55 52 | 45 20 28 76 3a 20 56 69 |PROCEDUR|E (v: Vi|
|00000c00| 65 77 29 20 48 61 6e 64 | 6c 65 4d 6f 64 65 6c 4d |ew) Hand|leModelM|
|00000c10| 73 67 20 28 56 41 52 20 | 6d 73 67 3a 20 4d 6f 64 |sg (VAR |msg: Mod|
|00000c20| 65 6c 73 2e 4d 65 73 73 | 61 67 65 29 3b 0d 09 09 |els.Mess|age);...|
|00000c30| 56 41 52 20 6c 65 6e 2c | 20 6d 3a 20 49 4e 54 45 |VAR len,| m: INTE|
|00000c40| 47 45 52 3b 0d 09 42 45 | 47 49 4e 0d 09 09 57 49 |GER;..BE|GIN...WI|
|00000c50| 54 48 20 6d 73 67 3a 20 | 4d 73 67 20 44 4f 0d 09 |TH msg: |Msg DO..|
|00000c60| 09 09 6c 65 6e 20 3a 3d | 20 53 48 4f 52 54 28 4c |..len :=| SHORT(L|
|00000c70| 45 4e 28 76 2e 74 69 63 | 6b 73 5e 29 29 3b 0d 09 |EN(v.tic|ks^));..|
|00000c80| 09 09 6d 20 3a 3d 20 76 | 2e 74 69 63 6b 73 5b 76 |..m := v|.ticks[v|
|00000c90| 2e 6c 61 73 74 5d 3b 0d | 09 09 09 49 46 20 55 6e |.last];.|...IF Un|
|00000ca0| 69 52 61 6e 64 28 29 20 | 3e 20 30 2e 35 20 54 48 |iRand() |> 0.5 TH|
|00000cb0| 45 4e 20 49 4e 43 28 6d | 29 20 45 4c 53 45 20 44 |EN INC(m|) ELSE D|
|00000cc0| 45 43 28 6d 29 20 45 4e | 44 3b 0d 09 09 09 76 2e |EC(m) EN|D;....v.|
|00000cd0| 6c 61 73 74 20 3a 3d 20 | 28 76 2e 6c 61 73 74 20 |last := |(v.last |
|00000ce0| 2b 20 31 29 20 4d 4f 44 | 20 6c 65 6e 3b 0d 09 09 |+ 1) MOD| len;...|
|00000cf0| 09 76 2e 74 69 63 6b 73 | 5b 76 2e 6c 61 73 74 5d |.v.ticks|[v.last]|
|00000d00| 20 3a 3d 20 6d 3b 0d 0d | 09 09 09 6d 73 67 2e 63 | := m;..|...msg.c|
|00000d10| 6f 6e 73 75 6d 65 64 20 | 3a 3d 20 54 52 55 45 3b |onsumed |:= TRUE;|
|00000d20| 0d 09 09 09 56 69 65 77 | 73 2e 55 70 64 61 74 65 |....View|s.Update|
|00000d30| 28 76 2c 20 56 69 65 77 | 73 2e 6b 65 65 70 46 72 |(v, View|s.keepFr|
|00000d40| 61 6d 65 73 29 0d 09 09 | 45 4c 53 45 0d 09 09 45 |ames)...|ELSE...E|
|00000d50| 4e 44 0d 09 45 4e 44 20 | 48 61 6e 64 6c 65 4d 6f |ND..END |HandleMo|
|00000d60| 64 65 6c 4d 73 67 3b 0d | 0d 09 50 52 4f 43 45 44 |delMsg;.|..PROCED|
|00000d70| 55 52 45 20 28 76 3a 20 | 56 69 65 77 29 20 52 65 |URE (v: |View) Re|
|00000d80| 73 74 6f 72 65 20 28 66 | 3a 20 56 69 65 77 73 2e |store (f|: Views.|
|00000d90| 46 72 61 6d 65 3b 20 6c | 2c 20 74 2c 20 72 2c 20 |Frame; l|, t, r, |
|00000da0| 62 3a 20 4c 4f 4e 47 49 | 4e 54 29 3b 0d 09 09 56 |b: LONGI|NT);...V|
|00000db0| 41 52 20 77 2c 20 68 2c | 20 78 2c 20 79 30 2c 20 |AR w, h,| x, y0, |
|00000dc0| 79 6c 61 73 74 2c 20 70 | 2c 20 70 31 2c 20 6c 65 |ylast, p|, p1, le|
|00000dd0| 6e 2c 20 6c 65 6e 32 2c | 20 69 2c 20 6a 3a 20 4c |n, len2,| i, j: L|
|00000de0| 4f 4e 47 49 4e 54 3b 20 | 74 69 63 6b 73 3a 20 54 |ONGINT; |ticks: T|
|00000df0| 69 63 6b 73 3b 0d 09 42 | 45 47 49 4e 0d 09 09 49 |icks;..B|EGIN...I|
|00000e00| 46 20 7e 61 63 74 69 6f | 6e 49 73 41 63 74 69 76 |F ~actio|nIsActiv|
|00000e10| 65 20 54 48 45 4e 20 61 | 63 74 69 6f 6e 2e 44 6f |e THEN a|ction.Do|
|00000e20| 3b 20 61 63 74 69 6f 6e | 49 73 41 63 74 69 76 65 |; action|IsActive|
|00000e30| 20 3a 3d 20 54 52 55 45 | 20 45 4e 44 3b 0d 0d 09 | := TRUE| END;...|
|00000e40| 09 76 2e 63 6f 6e 74 65 | 78 74 2e 47 65 74 53 69 |.v.conte|xt.GetSi|
|00000e50| 7a 65 28 77 2c 20 68 29 | 3b 0d 09 09 6c 65 6e 20 |ze(w, h)|;...len |
|00000e60| 3a 3d 20 4c 45 4e 28 76 | 2e 74 69 63 6b 73 5e 29 |:= LEN(v|.ticks^)|
|00000e70| 3b 20 6c 65 6e 32 20 3a | 3d 20 31 20 2b 20 77 20 |; len2 :|= 1 + w |
|00000e80| 44 49 56 20 66 2e 64 6f | 74 3b 0d 09 09 49 46 20 |DIV f.do|t;...IF |
|00000e90| 6c 65 6e 32 20 3e 20 6c | 65 6e 20 54 48 45 4e 09 |len2 > l|en THEN.|
|00000ea0| 28 2a 20 61 6c 6c 6f 63 | 61 74 65 20 6e 65 77 20 |(* alloc|ate new |
|00000eb0| 61 72 72 61 79 20 61 6e | 64 20 63 6f 70 79 20 64 |array an|d copy d|
|00000ec0| 61 74 61 20 2a 29 0d 09 | 09 09 4e 45 57 28 74 69 |ata *)..|..NEW(ti|
|00000ed0| 63 6b 73 2c 20 6c 65 6e | 32 29 3b 0d 09 09 09 69 |cks, len|2);....i|
|00000ee0| 20 3a 3d 20 30 3b 20 57 | 48 49 4c 45 20 69 20 3c | := 0; W|HILE i <|
|00000ef0| 3d 20 76 2e 6c 61 73 74 | 20 44 4f 20 74 69 63 6b |= v.last| DO tick|
|00000f00| 73 5b 69 5d 20 3a 3d 20 | 76 2e 74 69 63 6b 73 5b |s[i] := |v.ticks[|
|00000f10| 69 5d 3b 20 49 4e 43 28 | 69 29 20 45 4e 44 3b 0d |i]; INC(|i) END;.|
|00000f20| 09 09 09 6a 20 3a 3d 20 | 69 20 2b 20 6c 65 6e 32 |...j := |i + len2|
|00000f30| 20 2d 20 6c 65 6e 20 3b | 20 57 48 49 4c 45 20 69 | - len ;| WHILE i|
|00000f40| 20 3c 20 6c 65 6e 20 44 | 4f 20 74 69 63 6b 73 5b | < len D|O ticks[|
|00000f50| 6a 5d 20 3a 3d 20 76 2e | 74 69 63 6b 73 5b 69 5d |j] := v.|ticks[i]|
|00000f60| 3b 20 49 4e 43 28 69 29 | 3b 20 49 4e 43 28 6a 29 |; INC(i)|; INC(j)|
|00000f70| 20 45 4e 44 3b 0d 09 09 | 09 76 2e 74 69 63 6b 73 | END;...|.v.ticks|
|00000f80| 20 3a 3d 20 74 69 63 6b | 73 3b 20 6c 65 6e 20 3a | := tick|s; len :|
|00000f90| 3d 20 6c 65 6e 32 0d 09 | 09 45 4e 44 3b 0d 0d 09 |= len2..|.END;...|
|00000fa0| 09 28 2a 20 61 64 6a 75 | 73 74 20 6f 66 66 73 65 |.(* adju|st offse|
|00000fb0| 74 20 73 6f 20 74 68 61 | 74 20 74 68 65 20 6c 61 |t so tha|t the la|
|00000fc0| 73 74 20 70 6f 69 6e 74 | 20 69 73 20 76 69 73 69 |st point| is visi|
|00000fd0| 62 6c 65 20 2a 29 0d 09 | 09 79 6c 61 73 74 20 3a |ble *)..|.ylast :|
|00000fe0| 3d 20 28 76 2e 74 69 63 | 6b 73 5b 76 2e 6c 61 73 |= (v.tic|ks[v.las|
|00000ff0| 74 5d 2b 76 2e 6f 66 66 | 73 65 74 29 20 2a 20 66 |t]+v.off|set) * f|
|00001000| 2e 64 6f 74 3b 0d 09 09 | 49 46 20 79 6c 61 73 74 |.dot;...|IF ylast|
|00001010| 20 3e 20 68 20 44 49 56 | 20 32 20 54 48 45 4e 20 | > h DIV| 2 THEN |
|00001020| 44 45 43 28 76 2e 6f 66 | 66 73 65 74 29 0d 09 09 |DEC(v.of|fset)...|
|00001030| 45 4c 53 49 46 20 79 6c | 61 73 74 20 3c 20 2d 20 |ELSIF yl|ast < - |
|00001040| 68 20 44 49 56 20 32 20 | 54 48 45 4e 20 49 4e 43 |h DIV 2 |THEN INC|
|00001050| 28 76 2e 6f 66 66 73 65 | 74 29 0d 09 09 45 4e 44 |(v.offse|t)...END|
|00001060| 3b 0d 0d 09 09 70 20 3a | 3d 20 28 76 2e 6c 61 73 |;....p :|= (v.las|
|00001070| 74 20 2d 20 28 6c 65 6e | 32 2d 31 29 29 20 4d 4f |t - (len|2-1)) MO|
|00001080| 44 20 6c 65 6e 3b 09 28 | 2a 20 69 6e 64 65 78 20 |D len;.(|* index |
|00001090| 6f 66 20 66 69 72 73 74 | 20 65 6e 74 72 79 20 2a |of first| entry *|
|000010a0| 29 0d 09 09 78 20 3a 3d | 20 30 3b 20 79 30 20 3a |)...x :=| 0; y0 :|
|000010b0| 3d 20 68 20 44 49 56 20 | 32 20 2b 20 76 2e 6f 66 |= h DIV |2 + v.of|
|000010c0| 66 73 65 74 20 2a 20 66 | 2e 64 6f 74 3b 0d 09 09 |fset * f|.dot;...|
|000010d0| 57 48 49 4c 45 20 70 20 | 23 20 76 2e 6c 61 73 74 |WHILE p |# v.last|
|000010e0| 20 44 4f 0d 09 09 09 70 | 31 20 3a 3d 20 28 70 20 | DO....p|1 := (p |
|000010f0| 2b 20 31 29 20 4d 4f 44 | 20 6c 65 6e 3b 0d 09 09 |+ 1) MOD| len;...|
|00001100| 09 66 2e 44 72 61 77 4c | 69 6e 65 28 78 2c 20 79 |.f.DrawL|ine(x, y|
|00001110| 30 20 2b 20 76 2e 74 69 | 63 6b 73 5b 70 5d 2a 66 |0 + v.ti|cks[p]*f|
|00001120| 2e 64 6f 74 2c 20 78 20 | 2b 20 66 2e 64 6f 74 2c |.dot, x |+ f.dot,|
|00001130| 20 79 30 20 2b 20 76 2e | 74 69 63 6b 73 5b 70 31 | y0 + v.|ticks[p1|
|00001140| 5d 2a 66 2e 64 6f 74 2c | 20 30 2c 20 50 6f 72 74 |]*f.dot,| 0, Port|
|00001150| 73 2e 72 65 64 29 3b 0d | 09 09 09 78 20 3a 3d 20 |s.red);.|...x := |
|00001160| 78 20 2b 20 66 2e 64 6f | 74 3b 20 70 20 3a 3d 20 |x + f.do|t; p := |
|00001170| 70 31 0d 09 09 45 4e 44 | 3b 0d 09 09 66 2e 44 72 |p1...END|;...f.Dr|
|00001180| 61 77 4c 69 6e 65 28 6c | 2c 20 79 30 2c 20 72 2c |awLine(l|, y0, r,|
|00001190| 20 79 30 2c 20 30 2c 20 | 50 6f 72 74 73 2e 62 6c | y0, 0, |Ports.bl|
|000011a0| 61 63 6b 29 0d 09 45 4e | 44 20 52 65 73 74 6f 72 |ack)..EN|D Restor|
|000011b0| 65 3b 0d 0d 09 28 2a 20 | 63 6f 6d 6d 61 6e 64 73 |e;...(* |commands|
|000011c0| 20 2a 29 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 | *)...PR|OCEDURE |
|000011d0| 44 65 70 6f 73 69 74 2a | 3b 0d 09 09 56 41 52 20 |Deposit*|;...VAR |
|000011e0| 76 3a 20 56 69 65 77 3b | 0d 09 42 45 47 49 4e 0d |v: View;|..BEGIN.|
|000011f0| 09 09 4e 45 57 28 76 29 | 3b 20 4e 45 57 28 76 2e |..NEW(v)|; NEW(v.|
|00001200| 74 69 63 6b 73 2c 20 31 | 34 32 29 3b 0d 09 09 76 |ticks, 1|42);...v|
|00001210| 2e 6c 61 73 74 20 3a 3d | 20 30 3b 20 76 2e 6f 66 |.last :=| 0; v.of|
|00001220| 66 73 65 74 20 3a 3d 20 | 30 3b 0d 09 09 56 69 65 |fset := |0;...Vie|
|00001230| 77 73 2e 44 65 70 6f 73 | 69 74 28 76 29 0d 09 45 |ws.Depos|it(v)..E|
|00001240| 4e 44 20 44 65 70 6f 73 | 69 74 3b 0d 0d 42 45 47 |ND Depos|it;..BEG|
|00001250| 49 4e 0d 09 4e 45 57 28 | 61 63 74 69 6f 6e 29 3b |IN..NEW(|action);|
|00001260| 20 61 63 74 69 6f 6e 49 | 73 41 63 74 69 76 65 20 | actionI|sActive |
|00001270| 3a 3d 20 46 41 4c 53 45 | 3b 20 73 65 65 64 20 3a |:= FALSE|; seed :|
|00001280| 3d 20 53 65 72 76 69 63 | 65 73 2e 54 69 63 6b 73 |= Servic|es.Ticks|
|00001290| 28 29 0d 45 4e 44 20 4f | 62 78 54 69 63 6b 65 72 |().END O|bxTicker|
|000012a0| 73 2e 0d 82 f1 54 65 78 | 74 43 6f 6e 74 72 6f 6c |s....Tex|tControl|
|000012b0| 6c 65 72 73 2e 53 74 64 | 43 74 72 6c 44 65 73 63 |lers.Std|CtrlDesc|
|000012c0| 00 f1 54 65 78 74 43 6f | 6e 74 72 6f 6c 6c 65 72 |..TextCo|ntroller|
|000012d0| 73 2e 43 6f 6e 74 72 6f | 6c 6c 65 72 44 65 73 63 |s.Contro|llerDesc|
|000012e0| 00 f1 43 6f 6e 74 61 69 | 6e 65 72 73 2e 43 6f 6e |..Contai|ners.Con|
|000012f0| 74 72 6f 6c 6c 65 72 44 | 65 73 63 00 f1 43 6f 6e |trollerD|esc..Con|
|00001300| 74 72 6f 6c 6c 65 72 73 | 2e 43 6f 6e 74 72 6f 6c |trollers|.Control|
|00001310| 6c 65 72 44 65 73 63 00 | f2 04 00 00 00 00 00 00 |lerDesc.|........|
|00001320| 00 14 00 00 00 00 00 00 | 00 09 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 01 82 f1 54 65 78 74 52 |........|...TextR|
|00001340| 75 6c 65 72 73 2e 53 74 | 64 52 75 6c 65 72 44 65 |ulers.St|dRulerDe|
|00001350| 73 63 00 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 52 |sc..Text|Rulers.R|
|00001360| 75 6c 65 72 44 65 73 63 | 00 f2 03 00 00 00 00 00 |ulerDesc|........|
|00001370| 00 00 ab 00 00 00 07 00 | 00 00 a3 00 00 00 00 00 |........|........|
|00001380| 00 83 f1 54 65 78 74 52 | 75 6c 65 72 73 2e 53 74 |...TextR|ulers.St|
|00001390| 64 53 74 79 6c 65 44 65 | 73 63 00 f1 54 65 78 74 |dStyleDe|sc..Text|
|000013a0| 52 75 6c 65 72 73 2e 53 | 74 79 6c 65 44 65 73 63 |Rulers.S|tyleDesc|
|000013b0| 00 f2 07 00 00 00 00 00 | 00 00 00 00 00 00 08 00 |........|........|
|000013c0| 00 00 5a 00 00 00 00 00 | 00 00 82 f1 54 65 78 74 |..Z.....|....Text|
|000013d0| 52 75 6c 65 72 73 2e 41 | 74 74 72 69 62 75 74 65 |Rulers.A|ttribute|
|000013e0| 73 44 65 73 63 00 f2 04 | 00 00 00 00 00 00 00 00 |sDesc...|........|
|000013f0| 00 00 00 00 00 00 00 24 | 00 00 00 00 01 00 00 00 |.......$|........|
|00001400| 00 00 00 00 00 20 a3 5a | 00 00 00 00 00 7c be 01 |..... .Z|.....|..|
|00001410| 00 38 63 00 00 01 00 00 | 00 01 00 00 00 00 00 00 |.8c.....|........|
|00001420| 00 82 f2 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 22 00 00 00 00 | 00 00 00 00 01 00 00 00 |..."....|........|
|00001440| 00 48 65 6c 76 65 74 69 | 63 61 00 7c be 01 00 00 |.Helveti|ca.|....|
|00001450| 00 00 00 90 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 e0 8c 01 00 e0 8c 01 | 00 00 30 5c 00 e0 b9 3b |........|..0\...;|
|00001470| 3e 82 f1 44 6f 63 75 6d | 65 6e 74 73 2e 43 6f 6e |>..Docum|ents.Con|
|00001480| 74 72 6f 6c 6c 65 72 44 | 65 73 63 00 f2 10 00 00 |trollerD|esc.....|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 09 00 | 00 00 00 94 4d 73 00 18 |........|....Ms..|
|000014b0| 2b a3 00 80 fc 0a 00 80 | fc 0a 00 14 51 68 00 98 |+.......|....Qh..|
|000014c0| 2e 98 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001510| 01 07 01 07 01 07 01 07 | 01 07 01 07 01 07 01 07 |........|........|
|00001520| 01 07 01 07 01 07 01 07 | 01 07 01 07 01 07 01 07 |........|........|
|00001530| 07 54 69 63 6b 65 72 73 | 02 00 00 00 50 61 72 74 |.Tickers|....Part|
|00001540| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 48 9b |SIT!....|......H.|
|00001550| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 ae 04 81 b0 00 00 | 00 00 00 00 01 3e 01 02 |........|.....>..|
|00001580| 00 00 00 08 00 08 01 09 | 00 08 00 08 00 08 00 08 |........|........|
|00001590| 01 07 01 07 00 08 01 07 | 00 08 00 08 03 07 01 07 |........|........|
|000015a0| 01 07 00 08 01 07 00 08 | 00 08 00 08 01 07 00 08 |........|........|
|000015b0| 00 08 00 08 00 08 01 07 | 00 08 00 08 00 08 00 08 |........|........|
|000015c0| 01 07 01 09 01 04 02 07 | 01 07 01 09 04 02 01 09 |........|........|
|000015d0| 01 07 02 06 02 06 02 03 | 01 02 01 01 03 05 01 07 |........|........|
|000015e0| 01 07 03 03 03 05 03 05 | 03 05 01 07 04 06 02 06 |........|........|
|000015f0| 02 07 01 08 03 05 01 09 | 01 04 01 04 02 06 03 05 |........|........|
|00001600| 00 00 00 08 00 3c 00 05 | 01 db 02 06 00 00 01 00 |.....<..|........|
|00001610| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 34 88 c8 |........|...2.4..|
|00001620| 0f 6e 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.n.....2|..WNSP..|
|00001630| 00 0a 00 01 ff ff 00 00 | 00 00 00 34 8b 64 00 00 |........|...4.d..|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+